Hallo, Danke für eure Antworten.
@Gast 7777, in den Textboxen werden nur Zahlen verarbeitet.
@ tschart, lieben Dank für Deinen Ansatz.
Beim öffnen der UserForm über eine Schaltfläche im Arbeitsblatt öfnet er jetzt erst mal alle drei Messageboxen jeweils 3x bevor ich in der Userform Arbeiten kann.
Ich habe den Code soweit in allen Textboxen eingepflegt (von Bahn1 - Bahn18), Sub Berechne in den Code eingepflegt sowie unter Option Explicit die 3 Zeilen mit Dim und die Deklaration (? ist der Begriff richtig, ist mein erstes VBA Projekt) unter UserForm_Initialize.
in der Textbox 1 (in der alle Bahnen errechnet werden sollen die mit 1 Schlag gespielt werden) zählt er nur die 1 aus Bahn1 - Bahn3 ab Bahn4 addiert er nicht mehr auf. Änderungen Berechnet er in den ersten 3 Bahnen.
In der Textbox2 sind ebenfalls nur änderungen bis Bahn3 erkennbar, allerdings soll er in dieser Textbox nur die Fehler addiern ( es handelt sich bei dieser Arbeitsmappe um meine Ergebnis Tabelle von Minigolf spielen, spiele ich eine Bahn mit 1 ist es ein Ass und soll in der Textbox1 für Asse sowie in der Textbox3 für das Gesamtergebnis adiiert werden, spiele ich z.B eine 3 soll in der Textbox2 das addiert werden was in Bahn1 -Bahn18 über 2 gespielt wird, in dem fall +1, bei einer 4 + 2) Bei deinem Code schreibe ich in Bahn1 eine 2 und er schreibt in Textbox2 das Ergebnis -4..
Bisher hatte ich folgenden ansatz für Textbox2:
If Val(Bahn9.Text) > 2 Then
TextBox2.Text = TextBox2.Text + Val(Bahn9.Text) - 2
End If
Ich hoffe ich habe jetzt kein Kauderwelsch geschrieben,
Danke für deine Hilfe
Gruß
Chrimaet
|